home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Assess.Dxr / Internal_4_Print handlers.ls < prev    next >
Encoding:
Text File  |  1998-04-24  |  1.6 KB  |  66 lines
  1. global gMasterData
  2.  
  3. on showPrinting
  4.   case getUserArea(gMasterData) of
  5.     #styleForm:
  6.       set the editable of member "style field 1" to 0
  7.       set the editable of member "style field 2" to 0
  8.     #history2:
  9.       set the editable of member "CH field" to 0
  10.   end case
  11.   case getUserArea(gMasterData) of
  12.     #styleForm:
  13.       getTextAnswers()
  14.       getCorner1()
  15.     #history2:
  16.       getCorner2("CH field", "way:", "2.")
  17.     #reactions2:
  18.       getCorner3()
  19.       listReactions()
  20.     #resources3:
  21.       assemblePRFields("PR results", "PR rankings")
  22.       setPRField()
  23.       getCorner4()
  24.     #fourCorners:
  25.       gather4Corners()
  26.   end case
  27.   go(the frame + 1)
  28. end
  29.  
  30. on doNotPrint
  31.   case getUserArea(gMasterData) of
  32.     #styleForm:
  33.       set the editable of member "style field 1" to 1
  34.       set the editable of member "style field 2" to 1
  35.     #history2:
  36.       set the editable of member "CH field" to 1
  37.   end case
  38.   GoOn()
  39. end
  40.  
  41. on printData
  42.   go(the frame - 1)
  43.   updateStage()
  44.   stopSound2()
  45.   case getUserArea(gMasterData) of
  46.     #styleForm:
  47.       set the editable of member "style field 1" to 1
  48.       set the editable of member "style field 2" to 1
  49.     #history2:
  50.       set the editable of member "CH field" to 1
  51.   end case
  52.   case getUserArea(gMasterData) of
  53.     #styleForm:
  54.       print(the text of member "styleAnswers")
  55.     #history2:
  56.       print(the text of member "HistoryAnswers")
  57.     #reactions2:
  58.       print(the text of member "ReactionAnswers")
  59.     #resources3:
  60.       print(the text of member "PRAnswers")
  61.     #fourCorners:
  62.       print(the text of member "4CornersAnswers")
  63.   end case
  64.   GoOn()
  65. end
  66.